Attribute VB_Name = "Collect1"
Option Explicit
Sub Collect(PhacDr As String, mControl As Control, Nurse As String)
    '
    If PhacDr <> "" Then
    '
        mControl.Value = 0
        mControl.P1 = PhacDr
        mControl.P2 = Nurse
        Call Restore_Connect(mControl)
        mControl.Execute "$$Collect^DHCSTPCHCOLLS(P1,P2)"
    '
        If VismErr(mControl) < 0 Then
            Exit Sub
        End If
    End If
    
End Sub
